home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / separator.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  4.8 KB  |  204 lines
  1. # CVS $Id: separator.tcl,v 1.3 1995/02/03 16:55:20 zibi Exp $
  2. #
  3. # Demo for separator widget. - shows variety of different separators 
  4. # @(#) separator.tcl 11.7 95/01/31 
  5. #
  6. #
  7. proc nextHorzSep {name length last top_wid} {
  8.  
  9.     if {$last == ""} {
  10.         set sep [VtSeparator $name -length $length -below $top_wid \
  11.               -topOffset 20 \
  12.               -CHARM_topOffset 1]
  13.     } else {
  14.         set sep [VtSeparator $name -length $length -below $last]
  15.     }
  16.  
  17.     return $sep
  18. }
  19.  
  20. proc nextVertSep {name length last top_wid} {
  21.     if {$last == ""} {
  22.     set sep [VtSeparator $name -vertical  -length $length  \
  23.                -below $top_wid \
  24.                -topOffset 10 \
  25.                    -CHARM_topOffset 0]
  26.     } else {
  27.     set sep [VtSeparator $name -vertical  -length $length  \
  28.                -below $top_wid \
  29.                -leftSide $last  \
  30.                -topOffset 10 \
  31.                    -CHARM_topOffset 0]
  32.     }
  33.     return $sep
  34. }
  35.  
  36. proc nextVertLab {name label last top_wid left_wid} {
  37.     if {$last == ""} {
  38.     set lab [VtLabel $name -label $label   \
  39.                  -leftSide $left_wid    \
  40.                  -below $top_wid    \
  41.                  -topOffset 10      \
  42.                  -leftOffset 10     \
  43.              -CHARM_topOffset 0 \
  44.              -CHARM_leftOffset 0]
  45.  
  46.     } else {
  47.     set lab [VtLabel $name -label $label \
  48.                  -leftSide $left_wid     \
  49.                  -below $last   \
  50.                  -leftOffset 10 \
  51.              -CHARM_topOffset 0 \
  52.              -CHARM_leftOffset 0]
  53.  
  54.     }
  55.     return $lab
  56. }
  57.  
  58.  
  59.  
  60. proc nextHorzLab {name label last top_wid left_wid} {
  61.  
  62.     if {$last == ""} {
  63.         set lab [VtLabel $name -label $label \
  64.                  -leftSide $left_wid    \
  65.                  -below $top_wid    \
  66.              -leftOffset 5 \
  67.              -topOffset 10 \
  68.              -CHARM_topOffset 0 \
  69.              -CHARM_leftOffset 1]
  70.     } else {
  71.         set lab [VtLabel $name -label $label \
  72.                  -leftSide $last      \
  73.                  -below $top_wid  \
  74.              -leftOffset 5 \
  75.              -topOffset 10 \
  76.              -CHARM_topOffset 0 \
  77.              -CHARM_leftOffset 1]
  78.     }
  79.     return $lab
  80. }
  81.  
  82. proc nextLab {name label last top_wid left_wid} {
  83.     if {$last == ""} {
  84.     set lab [VtLabel $name -label $label  \
  85.                        -below $top_wid \
  86.                -leftSide $left_wid \
  87.                -leftOffset 10 \
  88.                -topOffset 10 \
  89.                -rightSide FORM \
  90.                -rightOffset 20 \
  91.                -CHARM_leftOffset 0 \
  92.                -CHARM_rightOffset 1 \
  93.                -CHARM_topOffset 1]
  94.  
  95.     } else {
  96.     set lab [VtLabel $name -label $label  \
  97.                        -below $last \
  98.                -leftSide $left_wid \
  99.                -rightSide FORM \
  100.                -rightOffset 20 \
  101.                -leftOffset 20 \
  102.                -topOffset 5 \
  103.                -CHARM_leftOffset 0 \
  104.                -CHARM_rightOffset 1 \
  105.                -CHARM_topOffset 1]
  106.     }
  107.  
  108. }
  109.  
  110. set app [VtOpen testseparators]
  111.  
  112. set fn [VtStartForm $app.separators -title "Separators"  \
  113.        -ok -okLabel "Quit" -okCallback { VtClose ;exit 0 ;#} \
  114.        -xmArgs "XmNmarginWidth 10
  115.                 XmNmarginHeight 10"]
  116.  
  117. set lab1 [VtLabel $fn.lab1 -label "Demo: Separator widgets" \
  118.           -topSide FORM \
  119.           -topOffset 20 \
  120.           -CHARM_topOffset 0]
  121.  
  122. set hsep ""
  123. foreach i {10 12 14 16 } {
  124.     set hsep [nextHorzSep $fn.hs$i $i $hsep $lab1]
  125. }
  126.  
  127. set vsep ""
  128. foreach i {10 12 14 16} {
  129.     set vsep [nextVertSep $fn.vs$i $i $vsep $hsep]
  130. }
  131.  
  132. set vlab ""
  133. foreach i {S E P A R A2 T O R2} {
  134.     set vlab [nextVertLab $fn.vl$i [cindex $i 0] $vlab $hsep $vsep]
  135. }
  136.  
  137. set hlab ""
  138. foreach i {E P A R A2 T O R2} {
  139.     set hlab [nextHorzLab $fn.hl$i [cindex $i 0] $hlab $hsep $fn.vlS]
  140. }
  141.  
  142. set ss [VtSeparator $fn.ss -horizontal -length 12 \
  143.               -leftSide $fn.vlE \
  144.               -below $fn.hlP \
  145.               -leftOffset 10 \
  146.               -CHARM_leftOffset 2]
  147. set ssx [VtSeparator $fn.ssx -vertical -length 10 \
  148.               -leftSide $fn.vlP \
  149.               -below $ss \
  150.               -leftOffset 10 \
  151.               -CHARM_leftOffset 1]
  152.  
  153. set label1 "Two kinds of Separators"
  154. set label2 "are demoed.  Look in the "
  155. set label3 "menus as well             "
  156.  
  157. set lab ""
  158. foreach i {1 2 3} {
  159.     set lab [nextLab $fn.label$i [set label$i] $lab $ss $ssx]
  160. }
  161.  
  162. if 0 {
  163. set l1 [VtLabel $fn.l1 -label "Two kinds of Separators" \
  164.                        -below $ss \
  165.                -leftSide $ssx \
  166.                -leftOffset 10 \
  167.                -topOffset 10 \
  168.                -rightSide FORM \
  169.                -rightOffset 20 \
  170.                -CHARM_leftOffset 0 \
  171.                -CHARM_rightOffset 1 \
  172.                -CHARM_topOffset 1]
  173.  
  174. set l2 [VtLabel $fn.l2 -label "are demoed.  Look in the " \
  175.                        -below $l1 \
  176.                -leftSide $ssx \
  177.                -rightSide FORM \
  178.                -rightOffset 20 \
  179.                -leftOffset 20 \
  180.                -topOffset 5 \
  181.                -CHARM_leftOffset 0 \
  182.                -CHARM_rightOffset 1 \
  183.                -CHARM_topOffset 1]
  184.  
  185. set l3 [VtLabel $fn.l3 -label "menus as well." \
  186.                        -below $l2 \
  187.                -leftSide $ssx \
  188.                -leftOffset 20 \
  189.                -topOffset 5 \
  190.                -CHARM_leftOffset 1 \
  191.                -CHARM_rightOffset 1 \
  192.                -CHARM_topOffset 1]
  193.  
  194.  
  195. }
  196.  
  197. if 0 {
  198. }
  199.  
  200.  
  201. VtManage $fn
  202. VtMainLoop
  203.  
  204.